home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / robot arm 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  487b  |  19 lines
  1. 1 rem manual control of robot motors
  2. 2 rem rolf a deininger july 1983
  3. 10 poke 37138,15 :rem all lines output
  4. 20 poke 37136,0:rem turn all motors off
  5. 30 dim cs$(13),cn(13)
  6. 40 for i=1 to 13:read cn(i):next i
  7. 50 data 2,1,6,5,9,10,13,14,17,18,21,22,0
  8. 60 cs$="brblerelsusdwrwlhchowuwdst"
  9. 70 print"robot motor control":print
  10. 80 print "command ";
  11. 90 input cm$:cm$=left$(cm$,2)
  12. 100 if cm$="en" then poke 37136,0:end
  13. 110 for i=1 to 13
  14. 120 ifcm$<>mid$(cs$,i*2-1,2) then 130
  15. 125 poke 37136,cn(i):print " ":(NULL) to 80
  16. 130 next i
  17. 140 print"unknown command"
  18. 150 (NULL) to 80
  19.